home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 626-637 / disk_636 / envprint / rexx / test.evp < prev    next >
Text File  |  1992-05-06  |  1KB  |  59 lines
  1. /* Test.evp */
  2. /* This script tests the ARexx commands of EnvPrint */
  3. /* You may have to change the files and paths to get this working */
  4.  
  5. options results
  6.  
  7. address 'EVP_Host'
  8.  
  9. sets1 "! Wizard Works !"
  10. sets2 "Stefan Zeiger"
  11. sets3 "Seligenstädter Weg 24"
  12. sets4 "D-W-8756 Kahl"
  13. sets5 "Western Germany"
  14. sets6 "Voice: (49)-6188-2525"
  15. setd1 "a"
  16. setd2 "b"
  17. setd3 "c"
  18. setd4 "d"
  19. setd5 "e"
  20. setd6 "f"
  21. setco "Just a little comment..."
  22.  
  23. about
  24.  
  25. evpreq "Now clearing"
  26. clear
  27.  
  28. version
  29. evpreq result
  30.  
  31. loads "sys:work/envprint/addresses/amiga c club"
  32. loadd "sys:work/envprint/addresses/matthew dillon"
  33. loadc "sys:work/envprint/comments/air mail"
  34.  
  35. evpreq "Now swapping and saving to ram:"
  36. swap
  37.  
  38. saves "ram:source"
  39. saved "ram:destination"
  40. savec "ram:comment"
  41.  
  42. evpreq "Now printing to ram:..."
  43. printfr "ram:front"
  44. printba "ram:back"
  45. printboth "ram:both"
  46.  
  47. evpreq "Now printing to nil:"
  48. printfr "nil:"
  49. printba "nil:"
  50. printboth "nil:"
  51.  
  52. signal on error
  53. evpreq "Now printing to FuckOffAndDie:"
  54. printfr "FuckOffAndDie:"
  55.  
  56. error:
  57. evpreq "Press <R> to quit"
  58. quit
  59.